perm filename WHOVID.SAI[HAK,HPM]1 blob sn#112693 filedate 1974-07-20 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "WHOVID"
C00003 ENDMK
C⊗;
BEGIN "WHOVID"
INTEGER I,J,K;
FOR I←'30 STEP 1 UNTIL '120 DO
 BEGIN
 J←CALL(I LSH 18,"VDSMAP") LAND 7;
 IF J ≠ 0 THEN OUTSTR("LINE "&CVOS(I)&" CHAN 4"&CVOS(J)&'15&'12);
 END;
END;